home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 20 Music & Utilities / SYLVIA.SDA (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  7KB  |  35 lines
  1. 100 PRINT CHR$(147):PRINT " SIDPLAYER SONG, WORDS,
  2. 105 [153] " AND PICTURE DISSOLVER
  3. 110 PRINT " BY CRAIG CHAMBERLAIN 2/1/87":PRINT:SP=783:DN=8
  4. 130 WR=3290:WU=WR+70:A=WU+77
  5. 135 L=PEEK(A):FOR K=1 TO L:F$=F$+CHR$(PEEK(A+K)):NEXT:A=A+K
  6. 140 ML=PEEK(A)+256*PEEK(A+1):MA=A+2:A=MA+ML:WL=PEEK(A)+256*PEEK(A+1):WA=A+2
  7. 150 PA=WA+WL:A=WA+1
  8. 155 P=PEEK(A):IF P<>34 THEN T$=T$+CHR$(P):A=A+1:GOTO 155
  9. 300 PRINT " THIS PROGRAM WRITES TO DISK":PRINT " THE MUSIC, WORD, AND PICTURE
  10. 305 [153] " FILES FOR THE FOLLOWING SONG:":[153]
  11. 310 [153] " " T$:[153]
  12. 320 [153] " INSERT A DISK TO RECEIVE THE
  13. 325 PRINT " MUSIC, WORD, AND PICTURE FILES,":PRINT " AND PRESS ANY KEY":PRINT
  14. 330 POKE 198,0:WAIT 198,15:GET G$
  15. 400 OPEN 2,DN,15:INPUT#2,A,B$,C,D:IF A GOTO 710
  16. 410 PRINT " WRITING " F$ ".MUS"
  17. 420 OPEN 1,DN,2,F$+".MUS,W,P":INPUT#2,A,B$,C,D:IF A GOTO 710
  18. 430 SYS WR,MA,MA+ML:IF PEEK(SP)AND1 GOTO 700
  19. 440 CLOSE 1:INPUT#2,A,B$,C,D:IF A GOTO 710
  20. 510 PRINT " WRITING " F$ ".WDS"
  21. 520 OPEN 1,DN,2,F$+".WDS,W,P":INPUT#2,A,B$,C,D:IF A GOTO 710
  22. 530 SYS WR,WA,WA+WL:IF PEEK(SP)AND1 GOTO 700
  23. 540 CLOSE 1:INPUT#2,A,B$,C,D:IF A GOTO 710
  24. 560 PRINT " WRITING " F$ ".PIC"
  25. 570 OPEN 1,DN,2,F$+".PIC,W,P":INPUT#2,A,B$,C,D:IF A GOTO 710
  26. 580 SYS WU,PA:IF PEEK(SP)AND1 GOTO 700
  27. 590 CLOSE 1:INPUT#2,A,B$,C,D:IF A GOTO 710
  28. 600 PRINT:PRINT " SCRATCH " F$ ".WPL? ";
  29. 610 WAIT 198,15:GET G$:IF G$="N" THEN PRINT "NO":GOTO 690
  30. 620 IF G$<>"Y" GOTO 610
  31. 630 PRINT "YES":PRINT#2,"S0:"+F$+".WPL":INPUT#2,A,B$,C,D:IF A>1 GOTO 710
  32. 690 CLOSE 2:END
  33. 700 INPUT#2,A,B$,C,D
  34. 710 PRINT:PRINT " ERROR: " B$:CLOSE 1:CLOSE 2:END
  35.